home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / New Stuffed Files / Hyper IRA.sit / HyperIRA / card_3810.txt < prev    next >
Encoding:
Text File  |  1988-11-29  |  12.8 KB  |  532 lines
  1. -- card: 3810 from stack: in
  2. -- bmap block id: 5189
  3. -- flags: 4000
  4. -- background id: 2698
  5. -- name: BankList
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=60 top=102 right=118 bottom=248
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: Bank1
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=60 top=118 right=134 bottom=248
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: Bank2
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=60 top=134 right=151 bottom=248
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 10
  45. -- style flags: 0
  46. -- line height: 13
  47. -- part name: Bank3
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=60 top=150 right=166 bottom=248
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 10
  59. -- style flags: 0
  60. -- line height: 13
  61. -- part name: Bank4
  62.  
  63.  
  64. -- part 5 (field)
  65. -- low flags: 00
  66. -- high flags: 0000
  67. -- rect: left=60 top=166 right=182 bottom=248
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 10
  73. -- style flags: 0
  74. -- line height: 13
  75. -- part name: Bank5
  76.  
  77.  
  78. -- part 6 (field)
  79. -- low flags: 00
  80. -- high flags: 0000
  81. -- rect: left=60 top=182 right=199 bottom=248
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 10
  87. -- style flags: 0
  88. -- line height: 13
  89. -- part name: Bank6
  90.  
  91.  
  92. -- part 7 (field)
  93. -- low flags: 00
  94. -- high flags: 0000
  95. -- rect: left=60 top=198 right=215 bottom=248
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 10
  101. -- style flags: 0
  102. -- line height: 13
  103. -- part name: Bank7
  104.  
  105.  
  106. -- part 8 (field)
  107. -- low flags: 00
  108. -- high flags: 0000
  109. -- rect: left=60 top=214 right=230 bottom=248
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 10
  115. -- style flags: 0
  116. -- line height: 13
  117. -- part name: Bank8
  118.  
  119.  
  120. -- part 9 (field)
  121. -- low flags: 00
  122. -- high flags: 0000
  123. -- rect: left=260 top=172 right=206 bottom=419
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 3
  128. -- text size: 12
  129. -- style flags: 2816
  130. -- line height: 16
  131. -- part name: OwnerName
  132.  
  133.  
  134. -- part 10 (button)
  135. -- low flags: 00
  136. -- high flags: 2004
  137. -- rect: left=30 top=105 right=117 bottom=42
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Bank1
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   if card field "Bank1" is empty then
  149.     exit mouseUp
  150.   else
  151.     visual effect dissolve to black
  152.     visual effect dissolve slowly to white
  153.     doMenu "New Card"
  154.     put item 1 of card field "Bank1" of card id 3810 into field "Bank"
  155.     put item 1 of card field "Bank1" of card id 3810 into card field "Bank1" of card id 4679
  156.     put item 1 of card field "Bank1" of card id 3810 into card field "Bank1" of card id 4167
  157.   end if
  158.   tabKey
  159.   tabKey
  160.   tabKey
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 11 (button)
  166. -- low flags: 00
  167. -- high flags: 2004
  168. -- rect: left=30 top=121 right=133 bottom=42
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Bank2
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   if card field "Bank2" is empty then
  180.     exit mouseUp
  181.   else
  182.     visual effect dissolve to black
  183.     visual effect dissolve slowly to white
  184.     doMenu "New Card"
  185.     put item 1 of card field "Bank2" of card id 3810 into field "Bank"
  186.     put item 1 of card field "Bank2" of card id 3810 into card field "Bank2" of card id 4679
  187.     put item 1 of card field "Bank2" of card id 3810 into card field "Bank2" of card id 4167
  188.   end if
  189.   tabKey
  190.   tabKey
  191.   tabKey
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part 12 (button)
  197. -- low flags: 00
  198. -- high flags: 2004
  199. -- rect: left=30 top=136 right=148 bottom=42
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Bank3
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   if  card field "Bank3" is empty then
  211.     exit mouseUp
  212.   else
  213.     visual effect dissolve to black
  214.     visual effect dissolve slowly to white
  215.     doMenu "New Card"
  216.     put item 1 of card field "Bank3" of card id 3810 into field "Bank"
  217.     put item 1 of card field "Bank3" of card id 3810 into card field "Bank3" of card id 4679
  218.     put item 1 of card field "Bank3" of card id 3810 into card field "Bank3" of card id 4167
  219.   end if
  220.   tabKey
  221.   tabKey
  222.   tabKey
  223. end mouseUp
  224.  
  225.  
  226.  
  227. -- part 13 (button)
  228. -- low flags: 00
  229. -- high flags: 2004
  230. -- rect: left=30 top=152 right=164 bottom=42
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: Bank4
  239. ----- HyperTalk script -----
  240. on mouseUp
  241.   if card field "Bank4" is empty then
  242.     exit mouseUp
  243.   else
  244.     visual effect dissolve to black
  245.     visual effect dissolve slowly to white
  246.     doMenu "New Card"
  247.     put item 1 of card field "Bank4" of card id 3810 into field "Bank"
  248.     put item 1 of card field "Bank4" of card id 3810 into card field "Bank4" of card id 4679
  249.     put item 1 of card field "Bank4" of card id 3810 into card field "Bank4" of card id 4167
  250.   end if
  251.   tabKey
  252.   tabKey
  253.   tabKey
  254. end mouseUp
  255.  
  256.  
  257.  
  258. -- part 14 (button)
  259. -- low flags: 00
  260. -- high flags: 2004
  261. -- rect: left=30 top=168 right=180 bottom=42
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: Bank5
  270. ----- HyperTalk script -----
  271. on mouseUp
  272.   if card field "Bank5" is empty then
  273.     exit mouseUp
  274.   else
  275.     visual effect dissolve to black
  276.     visual effect dissolve slowly to white
  277.     doMenu "New Card"
  278.     put item 1 of card field "Bank5" of card id 3810 into field "Bank"
  279.     put item 1 of card field "Bank5" of card id 3810 into card field "Bank5" of card id 4679
  280.     put item 1 of card field "Bank5" of card id 3810 into card field "Bank5" of card id 4167
  281.   end if
  282.   tabKey
  283.   tabKey
  284.   tabKey
  285. end mouseUp
  286.  
  287.  
  288.  
  289. -- part 15 (button)
  290. -- low flags: 00
  291. -- high flags: 2004
  292. -- rect: left=30 top=184 right=196 bottom=42
  293. -- title width / last selected line: 0
  294. -- icon id / first selected line: 0 / 0
  295. -- text alignment: 1
  296. -- font id: 0
  297. -- text size: 12
  298. -- style flags: 0
  299. -- line height: 16
  300. -- part name: Bank6
  301. ----- HyperTalk script -----
  302. on mouseUp
  303.   if card field "Bank6" is empty then
  304.     exit mouseUp
  305.   else
  306.     visual effect dissolve to black
  307.     visual effect dissolve slowly to white
  308.     doMenu "New Card"
  309.     put item 1 of card field "Bank6" of card id 3810 into field "Bank"
  310.     put item 1 of card field "Bank6" of card id 3810 into card field "Bank6" of card id 4679
  311.     put item 1 of card field "Bank6" of card id 3810 into card field "Bank6" of card id 4167
  312.   end if
  313.   tabKey
  314.   tabKey
  315.   tabKey
  316. end mouseUp
  317.  
  318.  
  319.  
  320. -- part 16 (button)
  321. -- low flags: 00
  322. -- high flags: 2004
  323. -- rect: left=30 top=200 right=212 bottom=42
  324. -- title width / last selected line: 0
  325. -- icon id / first selected line: 0 / 0
  326. -- text alignment: 1
  327. -- font id: 0
  328. -- text size: 12
  329. -- style flags: 0
  330. -- line height: 16
  331. -- part name: Bank7
  332. ----- HyperTalk script -----
  333. on mouseUp
  334.   if card field "Bank7" is empty then
  335.     exit mouseUp
  336.   else
  337.     visual effect dissolve to black
  338.     visual effect dissolve slowly to white
  339.     doMenu "New Card"
  340.     put item 1 of card field "Bank7" of card id 3810 into field "Bank"
  341.     put item 1 of card field "Bank7" of card id 3810 into card field "Bank7" of card id 4679
  342.     put item 1 of card field "Bank7" of card id 3810 into card field "Bank7" of card id 4167
  343.   end if
  344.   tabKey
  345.   tabKey
  346.   tabKey
  347. end mouseUp
  348.  
  349.  
  350.  
  351. -- part 17 (button)
  352. -- low flags: 00
  353. -- high flags: 2004
  354. -- rect: left=30 top=216 right=228 bottom=42
  355. -- title width / last selected line: 0
  356. -- icon id / first selected line: 0 / 0
  357. -- text alignment: 1
  358. -- font id: 0
  359. -- text size: 12
  360. -- style flags: 0
  361. -- line height: 16
  362. -- part name: Bank8
  363. ----- HyperTalk script -----
  364. on mouseUp
  365.   if card field "Bank8" is empty then
  366.     exit mouseUp
  367.   else
  368.     visual effect dissolve to black
  369.     visual effect dissolve slowly to white
  370.     doMenu "New Card"
  371.     put item 1 of card field "Bank8" of card id 3810 into field "Bank"
  372.     put item 1 of card field "Bank8" of card id 3810 into card field "Bank8" of card id 4679
  373.     put item 1 of card field "Bank8" of card id 3810 into card field "Bank8" of card id 4167
  374.   end if
  375.   tabKey
  376.   tabKey
  377.   tabKey
  378. end mouseUp
  379.  
  380.  
  381.  
  382. -- part 21 (field)
  383. -- low flags: 00
  384. -- high flags: 0000
  385. -- rect: left=344 top=216 right=234 bottom=420
  386. -- title width / last selected line: 0
  387. -- icon id / first selected line: 0 / 0
  388. -- text alignment: 0
  389. -- font id: 3
  390. -- text size: 12
  391. -- style flags: 0
  392. -- line height: 16
  393. -- part name: Use Date
  394.  
  395.  
  396. -- part 23 (button)
  397. -- low flags: 00
  398. -- high flags: A004
  399. -- rect: left=438 top=257 right=276 bottom=501
  400. -- title width / last selected line: 0
  401. -- icon id / first selected line: 0 / 0
  402. -- text alignment: 1
  403. -- font id: 0
  404. -- text size: 12
  405. -- style flags: 0
  406. -- line height: 16
  407. -- part name: New YR
  408. ----- HyperTalk script -----
  409. on mouseUp
  410.   push this card
  411.   set lockScreen to true
  412.   answer " Do you wish to delete all Int YTD?" with "Yes" or "No"
  413.   if it is "No" then
  414.     exit mouseUp
  415.   else
  416.     repeat for number of cards
  417.       go to next card
  418.       delete item 1 of field "IntYTD"
  419.     end repeat
  420.     go to card id 4679
  421.     repeat with X = 18 to number of card fields
  422.       delete word 1 of card field X
  423.     end repeat
  424.     go to card id 4167
  425.     repeat with X = 18 to number of card fields
  426.       delete word 1 of card field X
  427.     end repeat
  428.   end if
  429.   answer "Interest cleared for New Year!"
  430.   beep 1
  431.   pop card
  432.   set lockScreen to false
  433. end mouseUp
  434.  
  435.  
  436.  
  437. -- part 27 (field)
  438. -- low flags: 80
  439. -- high flags: 0001
  440. -- rect: left=28 top=69 right=270 bottom=426
  441. -- title width / last selected line: 0
  442. -- icon id / first selected line: 0 / 0
  443. -- text alignment: 1
  444. -- font id: 3
  445. -- text size: 12
  446. -- style flags: 256
  447. -- line height: 16
  448. -- part name: 
  449.  
  450.  
  451. -- part 28 (field)
  452. -- low flags: 00
  453. -- high flags: 0007
  454. -- rect: left=28 top=59 right=275 bottom=435
  455. -- title width / last selected line: 0
  456. -- icon id / first selected line: 0 / 0
  457. -- text alignment: 0
  458. -- font id: 3
  459. -- text size: 12
  460. -- style flags: 0
  461. -- line height: 16
  462. -- part name: Help
  463.  
  464.  
  465. -- part 29 (button)
  466. -- low flags: 00
  467. -- high flags: A004
  468. -- rect: left=373 top=258 right=274 bottom=416
  469. -- title width / last selected line: 0
  470. -- icon id / first selected line: 0 / 0
  471. -- text alignment: 1
  472. -- font id: 0
  473. -- text size: 12
  474. -- style flags: 0
  475. -- line height: 16
  476. -- part name: Close
  477. ----- HyperTalk script -----
  478. on mouseUp
  479.   hide  button "Close" of card id 3810
  480.   hide card field "Help" of card id 3810
  481. end mouseUp
  482.  
  483.  
  484.  
  485. -- part contents for background part 28
  486. ----- text -----
  487. 0
  488.  
  489. -- part contents for card part 27
  490. ----- text -----
  491.  
  492. Certificate of Deposit Record
  493. Designed and Written
  494. by
  495. Kelly B. Peavey
  496. Version 1.0
  497.  
  498.  
  499.  
  500.  
  501.  
  502.                  
  503.  
  504. -- part contents for card part 9
  505. ----- text -----
  506. Put your name here
  507.  
  508.  
  509. -- part contents for card part 28
  510. ----- text -----
  511.                                      Getting Started
  512.  
  513.  Be sure to read the intruction sheet on the subject of establishing a correct balance and the use of the "Set"
  514.  buttons on the General Ledger card when intalling certif-  icates older than 1 year as occurs in starting the stack.
  515.  
  516. When the stack opens it will be open to the "BankList" card.
  517.  
  518. To intall a bank name, type into the first available number-
  519. ed line, the name of the bank.--up to 30 characters.  Press
  520. the "Shadow" button on that line next to the number.
  521.  
  522. The name will automatically install on the IRA ledger card and the General ledger card.  Also, a new card, with the bank name, will be presented to record certificate data.  The next time a card for that bank is need, just press the shadow button on that line next to the number of the line.
  523.  
  524. The "Purchase Price", "Interest" and "Withdraw" data will automatically  be placed on the proper ledger card, on the proper line.  These fields will automatically post to the proper fields by using the tab key after entering data.  The data will not post again if you "tab" through the field unless the data in that field has been changed.
  525.  
  526. Be sure to press the "IRA" button if you are posting and IRA certificate.  A "yes" will appear in the field.  If not an IRA certificate then the field should be empty.
  527.  
  528.  
  529.  
  530. -- part contents for card part 21
  531. ----- text -----
  532. 11/29/88